home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / icoinv.dir / 00024_Script_24 < prev    next >
Text File  |  1983-02-01  |  444b  |  23 lines
  1. on toglitutto
  2.   set the soundLevel to 7
  3.   global funzioni
  4.   set funzioni to ""
  5.   sound close 1
  6.   sound close 2
  7.   
  8.   if count(the windowlist) > 0 then
  9.     repeat with x = 1 to count(the windowlist)
  10.       set the visible of getat(the windowlist,x) to false
  11.     end repeat
  12.   end if
  13.   
  14.   tell the stage
  15.     
  16.     global dove,cambio
  17.     set cambio to ""
  18.     curfinmetti
  19.     
  20.     set var to string(the windowlist)
  21.   end tell
  22. end
  23.